home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / amok_lha / amok33.lha / Ersatzquelle / EQgadgets.def next >
Text File  |  1993-08-15  |  1KB  |  34 lines
  1. (**********************************************************************
  2.  
  3.     :Program.       EQGadgets.def
  4.     :Author.        Gary Struhlik
  5.     :shortcut.      [gs]
  6.     :Version.       1.0
  7.     :Date.          09.10.89
  8.     :Copyright.  Public Domain
  9.     :Language.      Modula-II
  10.     :Translator. M2Amiga AMSoft V3.2d
  11.     :Contents.     Enthält die  grafische  Benutzerschnittstelle  für das
  12.     :Contents.   Programm 'Ersatzquelle'
  13.   
  14. **********************************************************************)
  15.  
  16. DEFINITION MODULE EQGadgets;
  17.  
  18. TYPE
  19.      Auswahl = ( RR,RP,XR,XP,LR,LP,CR,CP,U1,I1,U2,I2,RS,PS,U0,IK,ZI,AnB,
  20.                  AnC,BvC,RCK,VOR,OK,BODELIN,BODELOG,NUM,EE,DR,RECPOL,NS,
  21.                  PEND,ANWAZ);
  22.  
  23.      Anweisungen = SET OF Auswahl; (* Alle implementierten Makros *)            
  24.  
  25. PROCEDURE MaleGadgets; (* Das Gadgetfenster wird mit den Gadgets gemalt *)
  26.  
  27. PROCEDURE GadgetAbfrage( VAR Anw : Auswahl; 
  28.                          VAR Druckflag,Ausgabeflag : BOOLEAN ); 
  29.                 (* welche Anweisung ausführen ? *)
  30.  
  31. PROCEDURE EntferneGadgets; (* Gadgetfenster schließen *)
  32.       
  33. END EQGadgets.
  34.